home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / mortar.rdc < prev    next >
Text File  |  1989-04-28  |  264b  |  18 lines
  1. ; MORTAR 1.0
  2. ; Maz Spork
  3.  
  4. length    equ    last-srce        ; length of program to copy
  5.  
  6. srce    dat    0
  7. start    add    #512,-123
  8.     mov    -124,dest
  9.     mov    #length,srce
  10. loop    mov    @srce, <dest
  11.     djn    loop,srce
  12.     spl    @dest
  13. smadre    mov    dest,<1
  14.     jmp    smadre, -2
  15. dest    dat    0
  16.  
  17. last    end
  18.